home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 13
/
Tiger_Disk_013_19xx_Tiger-Crew-Disk_de_Side_B.d64
/
wet paint
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2023-02-26
|
5KB
|
51 lines
10 rem wet paint
11 rem
12 rem frank lindsey
13 rem bowling green
14 rem kentucky, usa
15 rem (502)781-3117
16 rem
17 rem let's hear it for free software!
18 rem
19 rem let's also hear it for making a
20 rem buck. watch for my other commer-
21 rem cially available programs.
22 rem
80 print"[147][159][142]"
90 poke53280,0:poke53281,0
100 printspc(11)"[213][201] [213][201] [213][192][192][201] [213][192][192][192][192][201]
110 [153][166]11)"(NULL)(NULL) (NULL)(NULL) (NULL)(NULL)tan(NULL) mid$tanright$(NULL)tan(NULL)
120 printspc(11)"[221][221][213][201][221][221] [221][202][201] [221][221]
130 [153][166]11)"(NULL)mid$(NULL)mid$(NULL)(NULL) (NULL)(NULL)(NULL) (NULL)(NULL)
140 printspc(11)"[221] [213][201] [221] [221][202][192][201] [221][221]
150 [153][166]11)"mid$tan(NULL)mid$tan(NULL) mid$tantan(NULL) mid$(NULL)
160 printspc(7)"[213][192][192][201] [213][192][192][201] [213][201] [213][192][192][201][213][201] [213][192][192][192][192][201]
170 [153][166]7)"(NULL)(NULL)right$(NULL) (NULL)(NULL)right$(NULL) (NULL)(NULL) (NULL)(NULL)right$(NULL)(NULL)(NULL) mid$tanright$(NULL)tan(NULL)
180 printspc(7)"[221][202][203][221] [221][173][189][221] [221][221] [221][221][221][221][221][221] [221][221]
190 [153][166]7)"(NULL)(NULL)tan(NULL) (NULL)or^(NULL) (NULL)(NULL) (NULL)(NULL)(NULL)(NULL)(NULL)(NULL) (NULL)(NULL)
200 printspc(7)"[221][221] [221][221][221][221] [221][221] [221][221][221][202][203][221] [221][221]
210 [153][166]7)"mid$(NULL) mid$(NULL)mid$(NULL) mid$(NULL) mid$(NULL)mid$tantan(NULL) mid$(NULL)
250 print"by frank lindsey
260 [153]"instructions (y/n) ?
300 c=4:k=55302:cv=55329:kr=k+1
310 k=k+1:ifk=cvthenc=c+1:k=kr:ifc=15thenc=1
320 forl=80to520step40:pokecl+k+l,c:next
330 geta$:on1-(a$="n")-2*(a$="y")goto310,2000,1000
1000 print"[147]congratulations, buddy!
1010 [153]"glad to have you on the team as the new
1020 print"assistant painter. now i'm the boss
1030 [153]"and you'll do as you're told. i want
1040 print"you to paint as much of this white wall
1050 [153]"green as you can. my other assistants
1060 print"are painting it other colors and i've
1070 [153]"just finished painting around it blue..
1080 print"yeah, i like things abstract, okay?!?
1090 [153]"now, smart guy, i'll pay you a penny
1100 print"for every inch you paint. but, if you
1110 [153]"or any of these other guys paint over
1120 print"any wet paint, i'll blow you up!!!!!"
1130 print"now use the joystick in port #1 and":print"get busy!!!":print"[163][163][163][163][163][163][163][163][163][163][163]"
1160 print"(press the fire button to start)"
1170 if(peek(56321)and16)<>0then1170
2000 sys3724